Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function IN100CLI()
Local cParamIXB
Local nPosCod
Begin Sequence
If ValType(ParamIXB) == "A"
cParamIXB:= ParamIXB[1]
Else
cParamIXB:= ParamIXB
EndIf
Do Case
Case cParamIXB == "DELDESP"
/*
Possibilita intervir na integração das despesas, impedindo que ocorra a exclusão
*/
lDeletaSWD:= .F.
Case cParamIX == "VALFD"
cErro := nil
Int_FE->NFEINT_OK := "T"
Case cParamIXB == "GRVFD1"
MsgInfo("Entrou no ponto de entrada:'GRVFD1'.")
Case cParamIXB == "FD"
nPosCod := aScan(aEstruDef,{|x| AllTrim(x[1])=="NFDFATURA"})
aEstruDef[nPosCod][3]:=20 //altera o tamanho do campo NFDFATURA
EndCase
End Sequence
Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas