#INCLUDE "TOTVS.CH"
#INCLUDE "TBICONN.CH"
User Function MyTeca200()
Local aCabec := {}
Local aItens := {}
Local aItem := {}
Local cContrato := ""
Local lOk := .T.
PRIVATE lMsErroAuto := .F.
ConOut(Repl("-",80))
ConOut(PadC("Teste de Inclusao de 2 chamado tecnico com 1 itens cada",80))
PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "TEC" TABLES "SA1","SB1","SE4","AA3","AAH"
DbSelectArea("SA1")
SA1->(DbSetOrder(1))
If !SA1->(DbSeek(xFilial("SA1")+"00000501"))
lOk := .F.
ConOut("Cadastrar cliente: 00000501")
EndIf
AA3->(dbSetOrder(4))
If !AA3->(DbSeek(xFilial("AA3")+ Space( Len( AA3->AA3_CODFAB ) ) + Space( Len( AA3->AA3_LOJAFA ) ) + "AGRUPRH " + "JHJSHDJHKJHDKAHKJDS " ))
lOk := .F.
ConOut("Cadastrar base instalada: Produto : " + Padr( "PA2",LEN( AA3->AA3_CODPRO ) ) + " - Identificador : " + Padr( "001",LEN( AA3->AA3_NUMSER ) ) )
EndIf
If !AA3->(DbSeek(xFilial("AA3")+ Space( Len( AA3->AA3_CODFAB ) ) + Space( Len( AA3->AA3_LOJAFA ) ) + "FLDPCA00 " + "ID 20231124-11 " ))
lOk := .F.
ConOut("Cadastrar base instalada: Produto : " + Padr( "PA2",LEN( AA3->AA3_CODPRO ) ) + " - Identificador : " + Padr( "002",LEN( AA3->AA3_NUMSER ) ) )
EndIf
SB1->(DbSetOrder(1))
If !SB1->(DbSeek(xFilial("SB1")+ "AGRUPRH " ))
lOk := .F.
ConOut("Cadastrar produto: " + Padr( "AGRUPRH ",15 ) )
EndIf
If !SB1->(DbSeek(xFilial("SB1")+"FLDPCA00 "))
lOk := .F.
ConOut("Cadastrar produto: " + Padr( "FLDPCA00 ",15 ) )
EndIf
SE4->(DbSetOrder(1))
If !SE4->(DbSeek(xFilial("SE4")+"001") )
lOk := .F.
ConOut("Cadastrar condicao de pagto : 1" )
EndIf
If lOk
ConOut("Inicio inclusao : "+Time())
cContrato := "000000000000007" //informa o numero do contrato
aCabec := {}
aItens := {}
aAdd(aCabec,{"AAH_CONTRT" ,cContrato ,Nil})
aAdd(aCabec,{"AAH_CODCLI" ,"000005" ,Nil})
aAdd(aCabec,{"AAH_LOJA" ,"01" ,Nil})
aAdd(aCabec,{"AAH_TPCONT" ,"1" ,Nil})
aAdd(aCabec,{"AAH_CONPAG" ,"001" ,Nil})
aAdd(aCabec,{"AAH_INIVLD" ,dDataBase ,Nil})
aAdd(aCabec,{"AAH_CPAGPV" ,"001" ,Nil})
aAdd(aCabec,{"AAH_CODPRO" ,"AGRUPRH " ,Nil})
//informa a base de atendimento para o contrato
aItem := {}
aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "AGRUPRH "} )
aAdd(aItem,{"AA3_NUMSER" , "JHJSHDJHKJHDKAHKJDS " } )
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem)
aItem := {}
aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "FLDPCA00 "} )
aAdd(aItem,{"AA3_NUMSER" , "ID 20231124-11 " } )
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem)
//Teste de Inclusao
TECA200(NIL,aCabec,aItens,3)
If !lMsErroAuto
ConOut("Incluido com sucesso! " + cContrato )
Else
ConOut("Erro na inclusao!")
EndIf
ConOut("Fim inclusao : "+Time())
ConOut("Inicio alteração : "+Time())
aCabec := {}
aItens := {}
aAdd(aCabec,{"AAH_CONTRT" ,cContrato ,Nil})
aAdd(aCabec,{"AAH_CODCLI" ,"000005" ,Nil})
aAdd(aCabec,{"AAH_LOJA" ,"01" ,Nil})
aAdd(aCabec,{"AAH_TPCONT" ,"1" ,Nil})
aAdd(aCabec,{"AAH_CONPAG" ,"001" ,Nil})
aAdd(aCabec,{"AAH_INIVLD" ,dDataBase ,Nil})
aAdd(aCabec,{"AAH_CPAGPV" ,"001" ,Nil})
aAdd(aCabec,{"AAH_CODPRO" ,"AGRUPRH " ,Nil})
aItem := {}
aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "AGRUPRH "} )
aAdd(aItem,{"AA3_NUMSER" , "JHJSHDJHKJHDKAHKJDS " } )
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem)
aItem := {}
aAdd(aItem,{"AA3_CODFAB" , " " } )
aAdd(aItem,{"AA3_LOJAFA" , " " } )
aAdd(aItem,{"AA3_CODPRO" , "FLDPCA00 "} )
aAdd(aItem,{"AA3_NUMSER" , "ID 20231124-11 " } )
aAdd(aItem,{"M_A_R_K_" , .T. } )
aAdd(aItens,aItem)
// Teste de Inclusao
TECA200(NIL,aCabec,aItens,4)
If !lMsErroAuto
ConOut("Alterado com sucesso ! " + cContrato )
Else
ConOut("Erro na alteração !")
EndIf
ConOut("Fim alteração : "+Time())
EndIf
RESET ENVIRONMENT
Return(.T.) |