Histórico da Página

  Function MyMata415()
Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nX     := 0
Local nY     := 0
Local cDoc   := ""
Local lOk    := .T.
PRIVATE lMsErroAuto := .F.
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente                                         |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC("Teste de Inclusao de 10 orcamentos de venda  com 30 itens cada",80))
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4","SCJ","SCK","SCL"
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Verificacao do ambiente para teste                           |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SB1")
dbSetOrder(1)
If !SB1->(MsSeek(xFilial("SB1")+"PA001"))
    lOk := .F.
    ConOut("Cadastrar produto: PA001")
EndIf
dbSelectArea("SF4")
dbSetOrder(1)
If !SF4->(MsSeek(xFilial("SF4")+"501"))
    lOk := .F.
    ConOut("Cadastrar TES: 501")
EndIf
dbSelectArea("SE4")
dbSetOrder(1)
If !SE4->(MsSeek(xFilial("SE4")+"001"))
    lOk := .F.
    ConOut("Cadastrar condicao de pagamento: 001")
EndIf
If !SB1->(MsSeek(xFilial("SB1")+"PA002"))
    lOk := .F.
    ConOut("Cadastrar produto: PA002")
EndIf
dbSelectArea("SA1")
dbSetOrder(1)
If !SA1->(MsSeek(xFilial("SA1")+"CL000101"))
    lOk := .F.
    ConOut("Cadastrar cliente: CL000101")
EndIf
If lOk
    ConOut("Inicio: "+Time())
    For nY := 1 To 1
        cDoc := GetSxeNum("SCJ","CJ_NUM")
        RollBAckSx8()
        aCabec := {}
        aItens := {}
        aadd(aCabec,\{\"CJ_NUM"   ,cDoc,Nil\}\)
        aadd(aCabec,\{\"CJ_CLIENTE",SA1->A1_COD,Nil\}\)
        aadd(aCabec,\{\"CJ_LOJACLI",SA1->A1_LOJA,Nil\}\)
        aadd(aCabec,\{\"CJ_LOJAENT",SA1->A1_LOJA,Nil\}\)
        aadd(aCabec,\{\"CJ_CONDPAG",SE4->E4_CODIGO,Nil\}\)
        For nX := 1 To 1
            aLinha := {}
            aadd(aLinha,\{\"CK_ITEM",StrZero(nX,2),Nil\}\)
            aadd(aLinha,\{\"CK_PRODUTO",SB1->B1_COD,Nil\}\)
            aadd(aLinha,\{\"CK_QTDVEN",1,Nil\}\)
            aadd(aLinha,\{\"CK_PRCVEN",100,Nil\}\)
            aadd(aLinha,\{\"CK_PRUNIT",100,Nil\}\)            
            aadd(aLinha,\{\"CK_VALOR",100,Nil\}\)
            aadd(aLinha,\{\"CK_TES","501",Nil\}\)
            aadd(aItens,aLinha)
        Next nX
        //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
        //| Teste de Inclusao                                            |
        //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
        MATA415(aCabec,aItens,3)
        If !lMsErroAuto
            ConOut("Incluido com sucesso! "+cDoc)    
        Else
            ConOut("Erro na inclusao!")
        EndIf
    Next nY
    ConOut("Fim  : "+Time())
    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //| Teste de alteracao                                           |
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    aCabec := {}
    aItens := {}
    aadd(aCabec,\{\"CJ_NUM",cDoc,Nil\}\)
    aLinha := {}
    aadd(aLinha,\{\"LINPOS","CK_ITEM","01"\}\)
    aadd(aLinha,\{\"AUTDELETA","S",Nil\}\)
    aadd(aItens,aLinha)
    For nX := 2 To 2
        aLinha := {}
        aadd(aLinha,\{\"CK_ITEM",StrZero(nX,2),Nil\}\)
        aadd(aLinha,\{\"CK_PRODUTO",SB1->B1_COD,Nil\}\)
        aadd(aLinha,\{\"CK_QTDVEN",2,Nil\}\)
        aadd(aLinha,\{\"CK_PRCVEN",100,Nil\}\)
        aadd(aLinha,\{\"CK_PRUNIT",100,Nil\}\)            
        aadd(aLinha,\{\"CK_VALOR",200,Nil\}\)
        aadd(aLinha,\{\"CK_TES","501",Nil\}\)
        aadd(aItens,aLinha)
    Next nX    
    ConOut(PadC("Teste de alteracao",80))
    ConOut("Inicio: "+Time())
    MATA415(aCabec,aItens,4)
    ConOut("Fim  : "+Time())
    ConOut(Repl("-",80))
    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
    //| Teste de Exclusao                                            |
    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
    ConOut(PadC("Teste de exclusao",80))
    ConOut("Inicio: "+Time())
    MATA415(aCabec,aItens,5)
    If !lMsErroAuto
        ConOut("Exclusao com sucesso! "+cDoc)    
    Else
        ConOut("Erro na exclusao!")
    EndIf
    ConOut("Fim  : "+Time())
    ConOut(Repl("-",80))
EndIf
RESET ENVIRONMENT
Return