...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function MT920PN()
Local l920Inclui := aRotina[nOpcx][4] == 3 //Define se a operação é de inclusão
/*
Lista de variáveis Private criadas no MATA920 que podem ser manipuladas pelo ponto de entrada e suas atribuições por padrão:
cTipo := If(l920Inclui,CriaVar("F2_TIPO") ,SF2->F2_TIPO)
c920Nota := If(l920Inclui,CriaVar("F2_DOC") ,SF2->F2_DOC)
c920Serie := If(l920Inclui,CriaVar("F2_SERIE") ,SF2->F2_SERIE)
d920Emis := If(l920Inclui,CriaVar("F2_EMISSAO") ,SF2->F2_EMISSAO)
c920Client := If(l920Inclui,CriaVar("F2_CLIENTE") ,SF2->F2_CLIENTE)
c920Loja := If(l920Inclui,CriaVar("F2_LOJA") ,SF2->F2_LOJA)
c920Especi := If(l920Inclui,CriaVar("F2_ESPECIE") ,SF2->F2_ESPECIE)
c920NFIni := If(l920Inclui,CriaVar("F2_DOC") ,SF2->F2_DOC)
c920Vend := If(l920Inclui,CriaVar("F2_VEND1") ,SF2->F2_VEND1)
c920DecExpc920Moeda := Iif(cPaisLoc=="PTG",If(l920Inclui,CriaVar("F2_DECLEXPMOEDA") ,SF2->F2_DECLEXP),""MOEDA)
c920Moedac920Taxa := If(l920Inclui,CriaVar("F2_MOEDATXMOEDA"),SF2->F2_MOEDATXMOEDA)
c920Taxac920NFFim := If(l920Inclui,CriaVar("F2_TXMOEDADOC") ,SF2->F2_TXMOEDANFORI)
c920Modal := If( !(cPaisLoc $ 'BRA|TRI'),If(l920Inclui,CriaVar("F2_NATUREZ"),SF2->F2_NATUREZ),"")
c920NFFimc920DecExp := Iif(cPaisLoc=="PTG",If(l920Inclui,CriaVar("F2_DOCDECLEXP") ,SF2->F2_NFORIDECLEXP),"")
*/
Return |
...
