Histórico da Página
...
Aviso | ||
---|---|---|
| ||
Nos casos em que ocorram mais de uma linha na tabela SN3, é obrigatório a passagem do campo N3_SEQ. |
Informações |
---|
Na inclusão, o programa irá considerar as taxas de depreciação informadas no grupo de bens, desde que os campos de taxas correspondentes não sejam informados no array de itens do ExecAuto da rotina Cadastro de Ativos (ATFA012). |
Inclusão:
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "Protheus.CH" #include "rwmake.ch" #include "TOTVS.ch" #include "TBICONN.ch" User Function MyAtfa012 Local aArea := GetArea() Local cBase := "ATFX01"//"0000000000" Local cItem := "0002" Local nQtd := 1 Local cChapa := "AJEDS10"//"00000" Local cPatrim := "N" Local cTipo := "01"//"01" Local cGrupo := "" Local dAquisic //:= dDataBase //:= CTOD("01/06/20")//dDataBase Local dIndDepr //:= RetDinDepr(dDataBase) Local cDescric := "Teste 01" Local cHistor := "TESTE " Local cContab := "11101" Local cCusto := "CDL" Local cSubCon := "000000001" Local cClvlCon := "000000000" Local nValor := 1000 Local nTaxa := 10 Local nTamBase //:= TamSX3("N3_CBASE")[1] Local nTamChapa //:= TamSX3("N3_CBASE")[1] Local aParam := {} Local aCab := {} Local aItens := {} Private lMsErroAuto := .F. Private lMsHelpAuto := .T. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "ATF" TABLES "SN1","SN3" dAquisic := dDataBase //:= CTOD("01/06/20")//dDataBase dIndDepr := RetDinDepr(dDataBase) DBSelectArea(aArea) nTamBase := TamSX3("N3_CBASE")[1] nTamChapa := TamSX3("N3_CBASE")[1] aCab := {} AAdd(aCab,{"N1_CBASE" , cBase ,NIL}) AAdd(aCab,{"N1_ITEM" , cItem ,NIL}) AAdd(aCab,{"N1_AQUISIC", dDataBase ,NIL}) AAdd(aCab,{"N1_DESCRIC", cDescric ,NIL}) AAdd(aCab,{"N1_QUANTD" , nQtd ,NIL}) AAdd(aCab,{"N1_CHAPA" , cChapa ,NIL}) AAdd(aCab,{"N1_PATRIM" , cPatrim ,NIL}) AAdd(aCab,{"N1_GRUPO" , cGrupo ,NIL}) //Coloque os campos desejados aqui aItens := {} //-- Preenche itens AAdd(aItens,{; {"N3_CBASE" , cBase ,NIL},; {"N3_ITEM" , cItem ,NIL},; {"N3_TIPO" , cTipo ,NIL},; {"N3_BAIXA" , "0" ,NIL},; {"N3_HISTOR" , cHistor ,NIL},; {"N3_CCONTAB" , cContab ,NIL},; {"N3_CUSTBEM" , cCusto ,NIL},; {"N3_CDEPREC" , cContab ,NIL},; {"N3_CDESP" , cContab ,NIL},; {"N3_CCORREC" , cContab ,NIL},; {"N3_CCUSTO" , cCusto ,NIL},; {"N3_DINDEPR" , dIndDepr ,NIL},; {"N3_VORIG1" , nValor ,NIL},; {"N3_TXDEPR1" , nTaxa ,NIL},; {"N3_VORIG2" , nValor ,NIL},; {"N3_TXDEPR2" , nTaxa ,NIL},; {"N3_VORIG3" , nValor ,NIL},; {"N3_TXDEPR3" , nTaxa ,NIL},; {"N3_VORIG4" , nValor ,NIL},; {"N3_TXDEPR4" , nTaxa ,NIL},; {"N3_VORIG5" , nValor ,NIL},; {"N3_SUBCCON" , cSubCon ,NIL},; {"N3_CLVLCON" , cClvlCon ,NIL},; {"N3_TXDEPR5" , nTaxa ,NIL}; }) //Coloque os campos desejados aqui Begin Transaction MSExecAuto({|x,y,z| Atfa012(x,y,z)},aCab,aItens,3,aParam) If lMsErroAuto MostraErro() DisarmTransaction() Endif End Transaction RestArea(aArea) RESET ENVIRONMENT Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas