Exemplos: | Exemplos para complemento de Impostos
| Expandir |
|---|
| title | Exemplo 01: Inclusão de título com cálculo de INSS, com dados no complemento do título (FKF) e com 2 complementos do imposto (FKG) |
|---|
| Inclusão de um título com cálculo de INSS, com dados no complemento do título (FKF) e com 2 complementos do imposto (FKG) para abater 1000,00 e 2000,00 da base de cálculo do INSS. User Function A040Inc1() LOCAL atit := {}
LOCAL aFKF := {}
LOCAL aFKG := {}
LOCAL aAuxFKG := {} PRIVATE lMsErroAuto := .F. atit := { { "E1_PREFIXO" , "AUT" , NIL },;
{ "E1_NUM" , "0015" , NIL },;
{ "E1_TIPO" , "NF" , NIL },;
{ "E1_NATUREZ" , "FIN0000400" , NIL },;
{ "E1_CLIENTE" , "FIN400" , NIL },;
{ "E1_EMISSAO" , CtoD("30/08/2022"), NIL },;
{ "E1_VENCTO" , CtoD("30/08/2022"), NIL },;
{ "E1_VENCREA" , CtoD("30/08/2022"), NIL },;
{ "E1_VALOR" , 10000 , NIL }}
aFKF := { { "FKF_CPRB" , "1" , NIL },;
{ "FKF_CNAE" , "00000025" , NIL },;
{ "FKF_TPSERV", "01" , NIL },;
{ "FKF_INDSUS", "2" , NIL }}
aAdd(atit,{"AUTCMTIT",aFKF,Nil}) // Adiona as informações na FKF - Complemento de títulos
// Monta o array com as informações que vão ser gravadas dos complementos de impostos aAuxFKG:= {{"FKG_ITEM" , "000001" , NIL },;
{ "FKG_IDFKE" , "FIN006" , NIL },; // Código do complemento do Imposto da tabela FKE
{ "FKG_DESCR" ,"deducao de base" , NIL },;
{ "FKG_VALOR" , 1000 , NIL }}
aAdd(aFKG,aAuxFKG) aAuxFKG := {} aAuxFKG := {{"FKG_ITEM" ,"000002" , NIL },;
{ "FKG_IDFKE" ,"FIN007" , NIL },; // Código do complemento do Imposto da tabela FKE
{ "FKG_DESCR" ,"deducao de valor" , NIL },;
{ "FKG_VALOR" , 90 , NIL }}
aAdd(aFKG,aAuxFKG)
aAuxFKG := {} // Limpa o array para adicionar um segundo item ao complemento
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) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif
Return
|
| Expandir |
|---|
| title | Exemplo 02: Alteração somente dos dados do título, sem alteração na FKF e FKG |
|---|
|
Exemplo 02: Alteração somente dos dados do título, sem alteração na FKF e FKG
//Teste de Alteração
User Function A040Alt1() LOCAL atit := {}
LOCAL aFKF := {}
LOCAL aFKG := {}
LOCAL aAuxFKG := {}
LOCAL lCont := .F.
PRIVATE lMsErroAuto := .F.
atit := { { "E1_PREFIXO" , "AUT" , NIL },;
{ "E1_NUM" , "0003 " , NIL },;
{ "E1_PARCELA" , " " , 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" , 15000 , NIL } }
DbSelectArea("SE1")
DbSetOrder(1)
lCont:= DbSeek(xFilial("SE1")+"AUT"+"0003 "+" "+"NF ") //Alteração deve ter o registro SE1 posicionado If lCont
MsExecAuto( { |a,b, c, d,e, f, g | FINA040(a,b, c, d,e, f, g)} , atit, 4,,,,, ) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
Endif
If lMsErroAuto
MostraErro()
Elseif lCont
Alert("Título alterado com sucesso!")
Endif
Return
|
| Expandir |
|---|
| title | Exemplo 03: Alteração dos dados de complemento do imposto do título (FKG), alterando o valor do abatimento |
|---|
| Exemplo 03: Alteração dos dados de complemento do imposto do título (FKG), alterando o valor do abatimento
User Function A040Alt2() LOCAL atit := {}
LOCAL aFKF := {}
LOCAL aFKG := {}
LOCAL aAuxFKG := {}
LOCAL lCont := .F.
PRIVATE lMsErroAuto := .F.
atit := { { "E1_PREFIXO" , "AUT" , NIL },;
{ "E1_NUM" , "0003 " , NIL },;
{ "E1_PARCELA" , " " , 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" , 15000 , NIL } } aAuxFKG := { { "FKG_ITEM" , "000001" , NIL },;
{ "FKG_IDFKE" , "000001" , NIL },;
{ "FKG_DESCR" , "ABAT MATERIAL 1" , NIL },;
{ "FKG_VALOR", 3000 , NIL }}
aAdd(aFKG,aAuxFKG)
DbSelectArea("SE1")
DbSetOrder(1)
lCont:= DbSeek(xFilial("SE1")+"AUT"+"0003 "+" "+"NF ") //Alteração deve ter o registro SE1 posicionado
If lCont
MsExecAuto( { |a,b, c, d,e, f, g | FINA040(a,b, c, d,e, f, g)} , atit, 4,,,,/*aFKF*/, aFKG) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
Endif
If lMsErroAuto
MostraErro()
Elseif lCont
Alert("Título alterado com sucesso!")
Endif
Return |
| Expandir |
|---|
| title | Exemplo 04: Exclusão do título com FKF e FKG, somente informar o título a ser excluído. |
|---|
|
//Teste de Exemplo 04: Exclusão do título com FKF e FKG, somente informar o título a ser excluído. //Teste de exclusão de imposto
User Function Auto040Exc()
LOCAL atit := {}
LOCAL lCont := .F. PRIVATE lMsErroAuto := .F.
atit := { { "E1_PREFIXO" , "AUT" , NIL },;
{ "E1_NUM" , "0003 " , NIL },;
{ "E1_PARCELA" , " " , 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" , 5000 , NIL } }
DbSelectArea("SE1")
DbSetOrder(1)
lCont:= DbSeek(xFilial("SE1")+"AUT"+"0003 "+" "+"NF ") //Exclusão deve ter o registro SE1 posicionado If lCont
MsExecAuto( { |a,b | FINA040(a,b)} , atit, 5) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
Endif
If lMsErroAuto
MostraErro()
Elseif lCont
Alert("Título Excluido com sucesso!")
Endif
Return
|
| Expandir |
|---|
| title | Exemplo 05: 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. |
|---|
| Exemplo 05: 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)
MsExecAuto( { |a,b, c, d,e, f, g | FINA040(a,b, c, d,e, f, g)} , atit, 3,,,,aFKF, aFKG) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif
Return
|
| Expandir |
|---|
| title | Exemplo 06: Teste de alteração do valor do título e do valor complemento do imposto do título (FKG) de dedução do valor do imposto por processo judicial. |
|---|
|
Exemplo 06: Teste de alteração do valor do título e do valor complemento do imposto do título (FKG) de dedução do valor do imposto por processo judicial.
//Teste de Alteração
User Function A040Al22() LOCAL atit := {}
LOCAL aFKF := {}
LOCAL aFKG := {}
LOCAL aAuxFKG := {}
LOCAL lCont := .F.
PRIVATE lMsErroAuto := .F.
atit := { { "E1_PREFIXO" , "AUT" , NIL },;
{ "E1_NUM" , "0004 " , NIL },;
{ "E1_PARCELA" , " " , 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" , 15000 , NIL } } aAuxFKG := { { "FKG_ITEM" , "000001" , NIL },;
{ "FKG_IDFKE" , "000002" , NIL },;
{ "FKG_DESCR" , "AUMENTADO" , NIL },;
{ "FKG_VALOR", 300 , NIL }}
aAdd(aFKG,aAuxFKG)
DbSelectArea("SE1")
DbSetOrder(1)
lCont:= DbSeek(xFilial("SE1")+"AUT"+"0004 "+" "+"NF ") //Alteração deve ter o registro SE1 posicionado
If lCont
MsExecAuto( { |a,b, c, d,e, f, g | FINA040(a,b, c, d,e, f, g)} , atit, 4,,,,/*aFKF*/, aFKG) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
Endif
If lMsErroAuto
MostraErro()
Elseif lCont
Alert("Título alterado com sucesso!")
Endif
Return
|
Exemplo 07: inclusão de titulo com complemento do imposto inexistente. Será exibida a mensagem que não existe o cadastro de complemento, porém o título será incluído sem complemento. User Function A040Inc3() LOCAL atit := {}
LOCAL aFKF := {}
LOCAL aFKG := {}
LOCAL aAuxFKG := {}
PRIVATE lMsErroAuto := .F.
atit := { { "E1_PREFIXO" , "AUT" , NIL },;
{ "E1_NUM" , "0005 " , 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 } }
aAuxFKG := { { "FKG_ITEM" , "000001" , NIL },;
{ "FKG_IDFKE" , "000005" , NIL },;
{ "FKG_DESCR" , "DISPENSA INSS" , NIL },;
{ "FKG_VALOR", 100 , NIL }}
aAdd(aFKG,aAuxFKG)
MsExecAuto( { |a,b, c, d,e, f, g | FINA040(a,b, c, d,e, f, g)} , atit, 3,,,,, aFKG) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif
Return
EXEMPLO DE COMPLEMENTO PIX |
