Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" /* Quando houver qualquer tipo de operação que envolva a inserção de valor no campo E2_CODRET, é necessário utilizar a função SetFuName("FINA050") antes de executar a MSExecAuto(), pois existe uma validação no X3_VALID -(EXISTCPO("SX5","37"+M->E2_CODRET) .AND. Iif(FUNNAME() $ "FINA050|FINA750",FA050Natur(),.T.)) deste campo que so ira realizar o calculo do imposto por código de retenção se o FunName() estiver contido em "FINA050". */ USER FUNCTION F050CODRET() LOCAL aArray := {} PRIVATE lMsErroAuto := .F. //Estrutura para demais títulos aArray := { { "E2_PREFIXO" , "PAG" , NIL },; { "E2_NUM" , "0001" , NIL },; { "E2_TIPO" , "NF" , NIL },; { "E2_NATUREZ" , "001" , NIL },; { "E2_FORNECE" , "0001" , NIL },; { "E2_EMISSAO" , CtoD("17/02/2012"), NIL },; { "E2_VENCTO" , CtoD("17/02/2012"), NIL },; { "E2_VENCREA" , CtoD("17/02/2012"), NIL },; { "E2_VALOR" , 5000 , NIL },; { "E2_DIRF" , "1" , NIL },; { "E2_CODRET" , "3208" , NIL }} SetFunName("FINA050") MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() Else Alert("Título incluído com sucesso!") Endif Return |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch"
USER FUNCTION FIN050SUBST()
LOCAL aArray := {}
PRIVATE lMsErroAuto := .F.
//Estrutura para PA ( Pagamento Antecipado )
aArray := { { "E2_PREFIXO" , "PAG" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "PA" , NIL },;
{ "E2_NATUREZ" , "001" , NIL },;
{ "E2_FORNECE" , "0001" , NIL },;
{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCREA" , CtoD("17/02/2012"), NIL },;
{ "E2_VALOR" , 5000 , NIL },;
{ "AUTBANCO" , "001" , NIL },;
{ "AUTAGENCIA" , "1234" , NIL },;
{ "AUTCONTA" , "123456" , NIL } }
//Estrutura para demais títulos
aArray := { { "E2_PREFIXO" , "PAG" , NIL },;
{ "E2_NUM" , "0001" , NIL },;
{ "E2_TIPO" , "NF" , NIL },;
{ "E2_NATUREZ" , "001" , NIL },;
{ "E2_FORNECE" , "0001" , NIL },;
{ "E2_EMISSAO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCTO" , CtoD("17/02/2012"), NIL },;
{ "E2_VENCREA" , CtoD("17/02/2012"), NIL },;
{ "E2_VALOR" , 5000 , NIL } }
//No array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos
aAuxTitPrv := { { "E2_PREFIXO" ,cPref , NIL },;
{ "E2_NUM" ,cTitulo , NIL },;
{ "E2_PARCELA" ,cParcela1 , NIL },;
{ "E2_TIPO" ,"PR " , NIL },;
{ "E2_FORNECE" ,cFornece , NIL },;
{ "E2_LOJA" ,cLoja , NIL }}
aadd(aTitPrv, aAuxTitPrv)
MsExecAuto({|a,b,c,d,e,f,g,h,i,j| FINA050(a,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv)
If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif
Return
|
DEMAIS INFORMAÇÕES
Não há.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas