Histórico da Página

Descrição:

A rotina automática TECA470 permite efetuar a manutenção nas Requisições da Ordem de Serviços

Sintaxe:

TECA470 - Rotina Automática de Orçamento (xAutoCab,nOpc)

Obs: Para esta rotina funcionar deverá ter sido criado uma OS.

Exemplos:

#Include "Protheus.ch"
#Include "tbiconn.ch"

User function MyTeca470()

Local aCabec := {}
Local aItens := {}
Local aItem := {}
Local nOPC := 3  //inclusão 4//alteração 5//exclusão

Private lMsErroAuto := .F.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

ConOut(Repl("-",80))

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01"

aAdd(aCabec,{"ABF_FILIAL" ,cFilant ,Nil})
aAdd(aCabec,{"ABF_EMISSA" ,dDatabase ,Nil})
aAdd(aCabec,{"ABF_NUMOS" ,"000018",Nil})
aAdd(aCabec,{"ABF_ITEMOS" ,"01",Nil})
aAdd(aCabec,{"ABF_SEQRC" ,"01" ,Nil})
aAdd(aCabec,{"ABF_CODTEC" ,"TEC001" ,Nil})


aAdd(aItens,{"ABG_FILIAL" ,cFilant ,Nil})
aAdd(aItens,{"ABG_ITEM"  ,"01" ,Nil})
aAdd(aItens,{"ABG_CODPRO" ,"000000000000000000000000001KIT" ,Nil})
aAdd(aItens,{"ABG_QUANT" ,2,Nil})
aAdd(aItens,{"ABG_CODSER" ,"000002",Nil})
aadd(aItem,aItens)

TECA470(aCabec,aItem,nOPC)

If !lMsErroAuto
    ConOut("Inclusao com sucesso! ")
Else
    ConOut("Erro na inclusao!")
EndIf
aCabec := {}
aItem := {}
aItens := {}

ConOut(Repl("-",80))

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Fechamento do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

RESET ENVIRONMENT

Return

Idioma:

Português(Brasil)

Versões:

Microsiga_Protheus10_Microsiga_Protheus11_e_Microsiga_Protheus12

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todas

Parâmetros:

xAutoCab => Array of Records (ABF)
xAutoItens => Array of Records (ABG)
nOpc => Numérico

Programa Fonte:

TECA470