Histórico da Página
...
Para utilizar os cálculos automatizados de impostos do sistema, basta NÃO utilizar NENHUMA referência de impostos nos arrays (capa e itens) criados na rotina; além também de informar, no último nível do array do item, na última posição, o respectivo TES da operação.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "TBICONN.CH"
USER Function MA103AUT()
Local aCabs := {}
Local aItens := {}
Local cDoc := "000007"
PRIVATE lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "XIFIS26" MODULO "COM" TABLES "SF1","SD1","SA1","SA2","SB1","SB2","SF4","SED","SE2"
//Montagem da capa do documento fiscal
aAdd(aCabs, {'F1_TIPO ', 'N' ,})
aAdd(aCabs, {'F1_FORMUL ', 'N' ,})
aAdd(aCabs, {'F1_DOC ', cDoc ,})
aAdd(aCabs, {'F1_SERIE ', 'AUT' ,})
aAdd(aCabs, {'F1_EMISSAO', dDataBase ,})
aAdd(aCabs, {'F1_FORNECE', '000001' ,})
aAdd(aCabs, {'F1_LOJA ', '01' ,})
aAdd(aCabs, {'F1_ESPECIE', 'NF' ,})
aAdd(aCabs, {'F1_COND ', '001' ,})
aadd(aCabs, {'E2_NATUREZ',"TUDO" ,})
//Montagem dos itens do documento fiscal (1. item)
aAdd(aItens, {})
aAdd(aItens[Len(aItens)], {'D1_TES ', "021" ,})
aAdd(aItens[Len(aItens)], {'D1_COD ', 'PA0000000000000000000000000001',})
aAdd(aItens[Len(aItens)], {'D1_QUANT ', 1 ,})
aAdd(aItens[Len(aItens)], {'D1_VUNIT ', 100 ,})
aAdd(aItens[Len(aItens)], {'D1_TOTAL ', 100 ,})
aAdd(aItens[Len(aItens)], {'D1_CF ', '1101' ,})
aAdd(aItens[Len(aItens)], {'D1_LOCAL ', '01' ,})
//Montagem dos itens do documento fiscal (2. item)
aAdd(aItens, {})
aAdd(aItens[Len(aItens)], {'D1_TES ', "021" ,})
aAdd(aItens[Len(aItens)], {'D1_COD ', 'PA0000000000000000000000000002',})
aAdd(aItens[Len(aItens)], {'D1_QUANT ', 1 ,})
aAdd(aItens[Len(aItens)], {'D1_VUNIT ', 100 ,})
aAdd(aItens[Len(aItens)], {'D1_TOTAL ', 100 ,})
aAdd(aItens[Len(aItens)], {'D1_CF ', '1101' ,})
aAdd(aItens[Len(aItens)], {'D1_LOCAL ', '01' ,})
//Chamada da rotina automatica
MSExecAuto ({|x,y,z| MATA103 (x,y,z)}, aCabs, aItens, 3)
//Tratamento de erro
If !lMsErroAuto
ConOut(OemToAnsi("Documento "+cDoc+"/AUT gerado com sucesso!"))
Else
ConOut(OemToAnsi("Erro na inclusão"))
MostraErro()
EndIf
RESET ENVIRONMENT
Return .T. |
Manual. Esta forma é muito utilizada nas integrações com outros sistemas onde os cálculos dos tributos já foram efetuados na origem, e na importação para o Protheus eles não devem ser recalculados e alterados.
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "TBICONN.CH" USER Function MA103AUT() Local aCabs := {} Local aItens := {} Local cDoc := "000007" PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "01T1" FILIAL "01XIFIS26" MODULO "COM" TABLES "SF1","SD1","SA1","SA2","SB1","SB2","SF4","SED","SE2" //Montagem da capa do documento fiscal aAdd(aCabs, {'F1_TIPO ', 'N' ,}) aAdd(aCabs, {'F1_FORMUL ', 'N' ,}) aAdd(aCabs, {'F1_DOC ', cDoc ,}) aAdd(aCabs, {'F1_SERIE ', 'AUT' ,}) aAdd(aCabs, {'F1_EMISSAO', dDataBase ,}) aAdd(aCabs, {'F1_FORNECE', '000001SP0001' ,}) aAdd(aCabs, {'F1_LOJA ', '01' ,}) aAdd(aCabs, {'F1_ESPECIE', 'NF' ,}) aAdd(aCabs, {'F1_COND ', '001' ,}) aadd(aCabs, {'E2_NATUREZ',"TUDO" ,}) //Os valores de impostos somente devem ser informados caso NAO deva ser efetuado o calculo // automaticoautomático pelas rotinas fiscais do sistema. //Normalmente as referencias de impostos saosão passadas quando a importacaoimportação automaticaautomática vem // de uma integracaointegração com outro sistema, onde todos os valores jah foram calculados e // NAO podem ser alterados. aAdd(aCabs, {'F1_BASEICM', 100 ,}) //Base aAdd(aCabs, {'F1_BASEIPI', 40 ,}) //Base aAdd(aCabs, {'F1_VALICM ', 10 ,}) //Valor imposto aAdd(aCabs, {'F1_VALIPI ', 4 ,}) //Valor imposto //Montagem dos itens do documento fiscal (1. item) aAdd(aItens, {}) aAdd(aItens[Len(aItens)], {'D1_TES ', "021" ,}) aAdd(aItens[Len(aItens)], {'D1_COD ', '000001PA0000000000000000000000000001',}) aAdd(aItens[Len(aItens)], {'D1_QUANT ', 1 ,}) aAdd(aItens[Len(aItens)], {'D1_VUNIT ', 100 ,}) aAdd(aItens[Len(aItens)], {'D1_TOTAL ', 100 ,}) aAdd(aItens[Len(aItens)], {'D1_CF ', '1101' ,}) aAdd(aItens[Len(aItens)], {'D1_LOCAL ', '01' ,}) //O mesmo tratamento para os impostos comentados acima, vale para os itens tambem. Portanto soh // deve ser utilizado quando NAO houver necessidade que o sistema calcule automaticamente. aAdd(aItens[Len(aItens)], {'D1_PICM ', 18 ,}) //Aliquota aAdd(aItens[Len(aItens)], {'D1_IPI ', 18 ,}) //Aliquota aAdd(aItens[Len(aItens)], {'D1_BASEICM', 50 ,}) //Base aAdd(aItens[Len(aItens)], {'D1_BASEIPI', 20 ,}) //Base aAdd(aItens[Len(aItens)], {'D1_VALICM ', 5 ,}) //Valor imposto aAdd(aItens[Len(aItens)], {'D1_VALIPI ', 2 ,}) //Valor imposto //Montagem dos itens do documento fiscal (2. item) aAdd(aItens, {}) aAdd(aItens[Len(aItens)], {'D1_TES ', "021" ,}) aAdd(aItens[Len(aItens)], {'D1_COD ', '000002PA0000000000000000000000000002',}) aAdd(aItens[Len(aItens)], {'D1_QUANT ', 1 ,}) aAdd(aItens[Len(aItens)], {'D1_VUNIT ', 100 ,}) aAdd(aItens[Len(aItens)], {'D1_TOTAL ', 100 ,}) aAdd(aItens[Len(aItens)], {'D1_CF ', '1101' ,}) aAdd(aItens[Len(aItens)], {'D1_LOCAL ', '01' ,}) //O mesmo tratamento para os impostos comentados acima, vale para os itens tambem. Portanto soh // deve ser utilizado quando NAO houver necessidade que o sistema calcule automaticamente. aAdd(aItens[Len(aItens)], {'D1_PICM ', 18 ,}) //Aliquota aAdd(aItens[Len(aItens)], {'D1_IPI ', 18 ,}) //Aliquota aAdd(aItens[Len(aItens)], {'D1_BASEICM', 50 ,}) //Base aAdd(aItens[Len(aItens)], {'D1_BASEIPI', 20 ,}) //Base aAdd(aItens[Len(aItens)], {'D1_VALICM ', 5 ,}) //Valor imposto aAdd(aItens[Len(aItens)], {'D1_VALIPI ', 2 ,}) //Valor imposto //Chamada da rotina automatica MSExecAuto ({|x,y,z| MATA103 (x,y,z)}, aCabs, aItens, 3) //Tratamento de erro If !lMsErroAuto ConOut(OemToAnsi("Documento "+cDoc+"/AUT gerado com sucesso!")) Else ConOut(OemToAnsi("Erro na inclusão")) MostraErro() EndIf RESET ENVIRONMENT Return .T. |
0202. Rotina automática de documentos de entrada via MATA103
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas