Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "PROTHEUS.CH" user Function GDEBESP() Local cLinha := PARAMIXB[1] // linha de referência Local cDescDEsp := PARAMIXB[2] // Descrição do Débito Especial Local nValTot := PARAMIXB[3] // Valor total do Débito Especial Local cCodLan := PARAMIXB[4] // Código de lançamento Local nValGuia := 0 Local nX := 0 Local aGuias := {} if AllTrim(cCodLan) == "AM051002" for nX := 1 to 2 nValGuia := nValTot / 2 aAdd(aGuias,{ cCodLan, nValGuia}) next elseif AllTrim(cCodLan) == "AM159999" for nX := 1 to 2 nValGuia := nValTot / 2 aAdd(aGuias,{ cCodLan, nValGuia}) next endif Return aGuias // O Sistema espera um array bidimensional com a informação do codigo de lançamento e do valor para cada guia. Caso o Codigo de lançamento não seja tratado no ponto de entrada // o sistema faz o tratamento comum. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas