Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (beraldo)

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (beraldo)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

NomeTipoDescriçãoDefaultObrigatórioReferência
aFilesaParamIXBVetorVetor com os dados do arquivo que está sendo enviado ao Banco de Conhecimentospedido de venda e tabela de preço que estão sendo executados no processo de Reajuste via Tabela de Preço , sendo:
[ 1 01 ] - cNumPv  - cNome - Nome do arquivo - Tipo: Caractere
[ 2 ]  - nTamanho - Tamanho do arquivo - Tipo: Numérico
[ 3 ]  - dData - Data do arquivo - Tipo: Data - Formato: dd/mm/aaaa
[ 4 ]  - cHora - Hora do arquivo - Tipo: Caractere - Formato: hh:mm:ss
[ 5 ]  - cAtributos - Tipo do retorno (Retorna sempre: "A" - Arquivo) - Tipo: Caractere   - Tipo: Caracter - Código do Pedido de Venda
[ 02 ] - cItemPv     - Tipo: Caracter - Item do Pedido de Venda
[ 03 ] - cProduto   - Tipo: Caracter - Código do Produto do Pedido de Venda
[ 04 ] - cTabPreco  - Tipo: Caracter - Código da Tabela de Preço
[ 05 ] - cItemDA1  - Tipo: Caracter - Item da Tabela de Preço
[ 06 ] - nPrcVen     - Tipo: Numérico - Preço Unitário do Produto que está sendo Atualizado
[ 07 ] - lPrcDA1     - Tipo: Lógico - Indica se o Preço Unitário Reajustado foi Localizado na Tabela de Preço
[ 08 ] - nFator        - Tipo: Numérico - Fator de Desconto / Acréscimo
[ 09 ] - nTipo         - Tipo: Numérico - Tipo de Retorno: 1 - Preço (default) / 2 - Fator de Desconto / Acréscimo


05. RETORNO

RetornoTipoDescriçãoObrigatório
lRetnRetLógicoSendo:
.T.  - O arquivo será enviado ao Banco de Conhecimento
.F.  - O arquivo não será enviado ao Banco de Conhecimento		NuméricoPreço Unitário que será utilizado para atualizar o produto no pedido de vendaSim

06. EXEMPLO

Bloco de código
languagejs
linenumberstrue
#INCLUDE#Include "PROTHEUS.CH"'Protheus.ch'

User Function FT340TAM()

Local aArqs MTPRCVEN()
Local nRet      := 0
Local aArea     := GetArea()
Local aAreaSC6  := SC6->( GetArea() )
Local aParams   := ParamIXB
Local cNumPv    := PARAMIXBParamIXB[1]
Local lRetcItemPv   := .T.ParamIXB[2]
Local cProduto nTamMax := 3072   //3MB

//Não será permitido o envio de arquivos maiores que 3MB para o Bando de Conhecimentos
If Round(aArqs[1][2] / 1024, 0) > nTamMax
    lRet := .F.
EndIf

Return lRetParamIXB[3]
Local cTabPreco := ParamIXB[4]
Local cItemDA1  := ParamIXB[5]
Local nPrcVen   := ParamIXB[6]
Local lPrcDA1   := ParamIXB[7]
Local nFator    := ParamIXB[8]
Local nTipo     := ParamIXB[9]

dbSelectArea( 'SC6' )
SC6->( dbSetOrder( 1 ) ) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO
SC6->( dbSeek( FWxFilial( 'SC6' ) + cNumPv + cItemPv + cProduto ) )
nPrcUnit := SC6->C6_PRCVEN

//Verifica o Preco de Venda é Maior que o Preço Unitário
If nPrcVen > nPrcUnit
    nRet := nPrcVen
Else
    nRet := nPrcUnit
EndIf

RestArea( aAreaSC6 )
RestArea( aArea )
Return nRet

07. DEMAIS INFORMAÇÕES

Será apresentado o help FT340TAM caso o retorno do ponto de entrada seja igual a .F. (Falso); 

...

  • Não há.


08. ASSUNTOS RELACIONADOS

...