Histórico da Página
...
04. PARÂMETROS
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
---|---|---|---|---|---|
cFilUse |
Caractere | Retorna a Filial corrente |
. | |||
cNumDoc |
Caractere | Retorna o numero do pedido que deverá ser enviado para integração EAI. |
cSitDoc | Caractere | Retorna a situação atual do |
pedido. |
05. RETORNO
Retorno | Tipo | Descrição | Obrigatório |
---|---|---|---|
cRet | Caracter | Retorno do Ponto de entrada deverá ser do tipo caractere e não poderá ser vazio, caso isso não seja atendido o retorno do ponto de entrada será descartado e vai prevalecer as informações que foram definidas pelo sistema padrãoDescritivo da situação do pedido. | Sim |
05. EXEMPLO
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE 'TOTVS.CH' User Function A410BSIT() Local cFilUse := ParamIxb[1] //filial que esta em uso Local cNumDoc := PadR(ParamIxb[2],TamSx3("C5_NUM")[1]) // Numero do pedido Local cSitDoc := ParamIxb[3] // Situação do documento Local cRet := "" // Retorno do ponto de entrada Local aArea := GetArea() Local aArSC6 := SC6->(GetArea()) Local cChave := "" Local nValDoc := 0 If cFilUse == "D MG 01 " If !"Transmitida" $ cSitDoc cChave := xFilial("SC6SC5") + cNumDoc DbSelectArea("SC6") DbSetorder(1) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO DbSeek(cChave ) While !Eof() .And. cChave == SC6->C6_FILIAL + SC6->C6_NUM nValDoc += SC6->C6_VALOR SC6->(DbSkip()) End If nValDoc > 1000 cRet := "Autorização da Gerencia Financeira" Else cRet := cSitDoc EndIf EndIf EndIf Restarea(aArSC6) RestArea(aArea) Return cRet |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas