Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function IN100CLI() Local cParamIXB Local nPosCod Local cLote 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 cParamIXB == "VALFD" cErro := nil Int_FE->NFEINT_OK := "T" Case cParamIXB == "VALFE" cLote:= Int_FD->NFDLOTECTL 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 nPosCod := aScan(aEstruDef,{|x| AllTrim(x[1])=="NFDLOTECTL"}) aEstruDef[nPosCod][3]:=20 //altera o tamanho do campo LOTE EndCase End Sequence Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas