Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
DescriçãoFunção utilizada para geração de orçamentos via rotina automática (ExecAuto).
Exemplos

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

LOJA",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

IdiomaPortuguês(Brasil)
VersõesMicrosiga Protheus 10 e Microsiga Protheus 11
Sistemas Operacionais SuportadosTodos
Compatível com as Bases de DadosTodas
Parâmetros

aAutocab - array contendo campos de cabeçalho

aAutoIte - array contendo campos de itens

nOpcAuto - 3- Incluir / 4- Alterar / 5- Excluir 

Programa FonteMATA415.PRX

 

...