Histórico da Página

Descrição:

A

rotina

automática

TECA400

permite

efetuar

a

manutenção

de

Orçamentos.

Sintaxe:

TECA400

-

Rotina

Automática

de

Orçamento

(cRotina,xAutoCab,

xAutoItens,

xAutoApont,

nOpc)

Exemplos:

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

Idioma:

Português(Brasil)

Versões:

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas

Operacionais

Suportados:

Todos

Compatível com as Bases de Dados:

Todas

Parâmetros:

cRotina => Caracter
xAutoCab => Array of Records (AB3)
xAutoItens => Array of Records (AB4)
xAutoApont => Array of Records (AB5)
nOpc => Numérico

Programa Fonte:

TECA400