User Function MyTeca400()
Local lOk := .T.
Local aCabec := {}
Local aItem := {}
Local aItens := {}
Local aApont := {}
Local aAponts := {}
Local cNumOrc := ""
PRIVATE lMsErroAuto := .F.
// Abertura do ambiente
ConOut(Repl("-",80))
// Verificacao do ambiente para teste
dbSelectArea("SA1")
dbSetOrder(1)
If !SA1->(DbSeek(xFilial("SA1")+"00000101"))
lOk := .F.
ConOut("Cadastrar Cliente: 000001 Loja: 01")
EndIf
dbSelectArea("SB1")
dbSetOrder(1)
If !SB1->(DbSeek(xFilial("SB1")+"000001"))
lOk := .F.
ConOut("Cadastrar Produto: 000001")
EndIf
dbSelectArea("SB1")
dbSetOrder(1)
If !SB1->(DbSeek(xFilial("SB1")+"000002"))
lOk := .F.
ConOut("Cadastrar Produto: 000002")
EndIf
dbSelectArea("SE4")
dbSetOrder(1)
If !SE4->(DbSeek(xFilial("SE4")+"001"))
lOk := .F.
ConOut("Cadastrar Condicao de Pagamento: 001")
EndIf
dbSelectArea("SE4")
dbSetOrder(1)
If !SE4->(DbSeek(xFilial("SE4")+"002"))
lOk := .F.
ConOut("Cadastrar Condicao de Pagamento: 002")
EndIf
dbSelectArea("AA3")
dbSetOrder(1)
If !AA3->(DbSeek(xFilial("AA3")"00000101"+PadR("000001",15)"123456"))
lOk := .F.
ConOut("Cadastrar Base Instalada Cliente/Loja: 000001/01 Produto: 000001 Série: 123456")
EndIf
dbSelectArea("AA3")
dbSetOrder(1)
If !AA3->(DbSeek(xFilial("AA3")"00000101"+PadR("000002",15)"654321"))
lOk := .F.
ConOut("Cadastrar Base Instalada Cliente/Loja: 000001/01 Produto: 000002 Série: 654321")
EndIf
dbSelectArea("AAG")
dbSetOrder(1)
If !AAG->(DbSeek(xFilial("AAG")+"000001"))
lOk := .F.
ConOut("Cadastrar Ocorrencia: 000001")
EndIf
dbSelectArea("AA5")
dbSetOrder(1)
If !AA5->(DbSeek(xFilial("AA5")+"000001"))
lOk := .F.
ConOut("Cadastrar Servico: 000001")
EndIf
If lOk
ConOut(PadC("Teste de Inclusao da Orcamento",80))
ConOut("Inicio: "+Time())
cNumOrc := GetSXENum("AB3","AB3_NUMORC")
RollBackSx8()
aadd(aCabec,{"AB3_NUMORC",cNumOrc,Nil})
aadd(aCabec,{"AB3_CODCLI",SA1->A1_COD,Nil})
aadd(aCabec,{"AB3_LOJA" ,SA1->A1_LOJA,Nil})
aadd(aCabec,{"AB3_EMISSA",dDataBase,Nil})
aadd(aCabec,{"AB3_ATEND" ,cUserName,Nil})
aadd(aCabec,{"AB3_CONPAG","001",Nil})
aadd(aCabec,{"AB3_HORA" ,Time(),Nil})
aadd(aItem,{"AB4_ITEM" ,StrZero(1,2),Nil})
aadd(aItem,{"AB4_TIPO" ,"1",Nil})
aadd(aItem,{"AB4_CODPRO",AA3->AA3_CODPRO,Nil})
aadd(aItem,{"AB4_NUMSER",AA3->AA3_NUMSER,Nil})
aadd(aItem,{"AB4_CODPRB",AAG->AAG_CODPRB,Nil})
aadd(aItens,aItem)
aadd(aApont,{"AB5_ITEM" ,StrZero(1,2),Nil})
aadd(aApont,{"AB5_SUBITE",StrZero(1,2),Nil})
aadd(aApont,{"AB5_CODPRO",SB1->B1_COD,Nil})
aadd(aApont,{"AB5_CODSER",AA5->AA5_CODSER,Nil})
aadd(aApont,{"AB5_QUANT",1,Nil})
aadd(aApont,{"AB5_VUNIT",100,Nil})
aadd(aApont,{"AB5_PRCLIS",100,Nil})
aadd(aAponts,aApont)
TECA400(,aCabec,aItens,aAponts,3)
If !lMsErroAuto
ConOut("Inclusao com sucesso! ")
Else
ConOut("Erro na inclusao!")
EndIf
EndIf
Return |
