Teste de inclusão de título com complemento de título (FKF) e com complemento do imposto do título (FKG) de dedução do valor do imposto por processo judicial. User Function A040Inc2() LOCAL atit := {} LOCAL aFKF := {} LOCAL aFKG := {} LOCAL aAuxFKG := {}
PRIVATE lMsErroAuto := .F.
atit := { { "E1_PREFIXO" , "AUT" , NIL },; { "E1_NUM" , "0004 " , NIL },; { "E1_TIPO" , "NF" , NIL },; { "E1_NATUREZ" , "NATIRINSS" , NIL },; { "E1_CLIENTE" , "000001" , NIL },; { "E1_EMISSAO" , CtoD("19/06/2017"), NIL },; { "E1_VENCTO" , CtoD("19/06/2017"), NIL },; { "E1_VENCREA" , CtoD("19/06/2017"), NIL },; { "E1_VALOR" , 10000 , NIL } }
aFKF := { { "FKF_CPRB" , "1" , NIL },; { "FKF_CNAE" , "0112-1/02" , NIL },; { "FKF_TPSERV", "01" , NIL },; { "FKF_INDSUS", "2" , NIL }} aAuxFKG := { { "FKG_ITEM" , "000001" , NIL },; { "FKG_IDFKE" , "000002" , NIL },; // Código do complemento do imposto (FKE) { "FKG_DESCR" , "DISPENSA INSS" , NIL },; { "FKG_NUMPRO" , "0000001" , NIL },; // Código do processo judicial/adm (CCF) { "FKG_VALOR", 100 , NIL }}
aAdd(aFKG,aAuxFKG)
aAuxFKG := {} aAdd(atit,{"AUTCMIMP",aFKG,Nil}) // Adiciona as informações na FKG - Complemento de impostos
MsExecAuto( { |a,b, c, d,e, f, g | FINA040(a,b, c, d,e, f, g)} , atit, 3
|