Histórico da Página
...
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. |
...
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', 'SP0001' ,}) aAdd(aCabs, {'F1_LOJA ', '01' ,}) aAdd(aCabs, {'F1_ESPECIE', 'NF' ,}) aAdd(aCabs, {'F1_COND ', '001' ,}) aadd(aCabs, {'E2_NATUREZ',"" ,}) //Os valores de impostos somente devem ser informados caso NAO deva ser efetuado o calculo // automático pelas rotinas fiscais do sistema. //Normalmente as referencias de impostos são passadas quando a importação automática vem // de uma integraçã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 ', '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' ,}) //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 ', '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' ,}) //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. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas