Histórico da Página
Descrição | Funçã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_ |
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 |
Idioma | Português(Brasil) |
Versões | Microsiga Protheus 10 e Microsiga Protheus 11 |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | Todas |
Parâmetros | aAutocab - array contendo campos de cabeçalho aAutoIte - array contendo campos de itens nOpcAuto - 3- Incluir / 4- Alterar / 5- Excluir |
Programa Fonte | MATA415.PRX |
...