Histórico da Página
...
Ponto de Entrada utilizado para alterar o Preço Unitário do produto no momento do Reajuste executado via Tabela de Preço.
03. SINTAXE
MTPRCVEN() ---> nRet
04. PARÂMETROS
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
---|---|---|---|---|---|
aFilesaParamIXB | Vetor | Vetor 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
Retorno | Tipo | Descrição | Obrigatório | ||
---|---|---|---|---|---|
lRetnRet | Lógico | Sendo: .T. - O arquivo será enviado ao Banco de Conhecimento .F. - O arquivo não será enviado ao Banco de Conhecimento | Numérico | Preço Unitário que será utilizado para atualizar o produto no pedido de venda | Sim |
06. EXEMPLO
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas