Passo a passo: | #INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH" //INCLUSÃO DE UM NOVO PARTICIPANTE User Function IncMata150()
Local aCabec := {}
Local aItens := {}
PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM"
//| Posiciona a cotação em que o novo participante será incluído. |//
dbSelectArea("SC8")
dbSetOrder(1)
dbSeek(xFilial("SC8")+"000055000035") aadd(aCabec,{"C8_FORNECE" ,"2 000010"})
aadd(aCabec,{"C8_LOJA" ,"01"})
aadd(aCabec,{"C8_COND" ,"001"})
aadd(aCabec,{"C8_CONTATO" ,"AUTO"})
aadd(aCabec,{"C8_FILENT" ,"01"})
aadd(aCabec,{"C8_MOEDA" ,01})
aadd(aCabec,{"C8_EMISSAO" ,dDataBase})
aadd(aCabec,{"C8_TOTFRE" ,0})
aadd(aCabec,{"C8_VALDESC" ,0})
aadd(aCabec,{"C8_DESPESA" ,0})
aadd(aCabec,{"C8_SEGURO" ,0})
aadd(aCabec,{"C8_DESC1" ,0})
aadd(aCabec,{"C8_DESC2" ,0})
aadd(aCabec,{"C8_DESC3" ,0}) aadd(aItens,{{"C8_NUMPRO" ,"01" ,Nil},;
{"C8_PRODUTO" ," ZZ-002COM00000000000000000000000011" ,Nil},;
{"C8_ITEM" ,"0001",Nil},;
{"C8_UM" ,"CX UN",Nil},;
{"C8_QUANT" ,1000 10 ,Nil},;
{"C8_PRECO" ,1 0 ,NIL},;
{"C8_TOTAL" ,1000 0 ,NIL}}) MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,32) If !lMsErroAuto
ConOut(" Incluido NF: " + cNumNovo participante incluído" )
Else
MostraErro()
ConOut("Erro na inclusaoinclusão!")
EndIf ConOut("Fim: " + Time()) RESET ENVIRONMENT Return
// ALTERAÇÃO DE UMA COTAÇÃO JÁ EXISTENTEAtualiza Cotação
User Function AltMata150()
Local aCabec := {}
Local aItens := {}
PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" aCabec:={}
aItens:={} dbSelectArea("SC8")
dbSetOrder(1)
dbSeek(xFilial("SC8")+"000055000035") aadd(aCabec,{"C8_FORNECE" ,"1 000010"})
aadd(aCabec,{"C8_LOJA" ,"01"})
aadd(aCabec,{"C8_COND" ,"001"})
aadd(aCabec,{"C8_CONTATO" ,"AUTO"})
aadd(aCabec,{"C8_FILENT" ,"01"})
aadd(aCabec,{"C8_MOEDA" ,01})
aadd(aCabec,{"C8_EMISSAO" ,dDataBase})
aadd(aCabec,{"C8_SEGURO" ,100TOTFRE" ,0})
aadd(aCabec,{"C8_VALDESC" ,0})
aadd(aCabec,{"C8_DESPESA" ,0})
aadd(aCabec,{"C8_SEGURO" ,0})
aadd(aCabec,{"C8_DESC1" ,0})
aadd(aCabec,{"C8_DESC2" ,0})
aadd(aCabec,{"C8_DESC3" ,0}) aadd(aItens,{{"C8_NUMPRO" ,"01" ,Nil},;
{"C8_PRODUTO" ," ZZ-002COM00000000000000000000000011" ,Nil},;
{"C8_ITEM" ,"0001",Nil},;
{"C8_UM" ,"CX UN",Nil},;
{"C8_QUANT" ,2000 10 ,Nil},;
{"C8_PRECO" ,20 ,NIL},;
{"C8_TOTAL" ,200 ,NIL}})
MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,3)
If !lMsErroAuto
ConOut ConOut(" Incluido NF: " + cNumCotação atualizada ")
Else
MostraErro MostraErro()
ConOut ConOut("Erro na inclusaoAtualização!")
EndIf ConOut("Fim: " + Time()) RESET ENVIRONMENT
Return
// INCLUSÃO DE UMA PROPOSTA EM UMA COTAÇÃO JÁ EXISTENTEINCLUIR PROPOSTA User Function AltMata150incPMata150()
Local aCabec := {}
Local aItens := {}
PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" aCabec := {}
aItens := {} dbSelectAreaaadd("SC8")
dbSetOrder(1)
dbSeek(xFilial("SC8")+"000055")aCabec,{"C8_NUM" ,"000035"})
aadd(aCabec,{"C8_FORNECE" ,"1 000010"})
aadd(aCabec,{"C8_LOJA" ,"01"})
aadd(aCabec,{"C8_COND" ,"001"})
aadd(aCabec,{"C8_CONTATO" ,"AUTO"})
aadd(aCabec,{"C8_FILENT" ,"01"})
aadd(aCabec,{"C8_MOEDA" ,01})
aadd(aCabec,{"C8_EMISSAO" ,dDataBase})
aadd(aCabec,{"C8_TOTFRE" ,0})
aadd(aCabec,{"C8_VALDESC" ,0})
aadd(aCabec,{"C8_DESPESA" ,0})
aadd(aCabec,{"C8_SEGURO" ,0})
aadd(aCabec,{"C8_DESC1" ,0})
aadd(aCabec,{"C8_DESC2" ,0})
aadd(aCabec,{"C8_DESC3" ,0}) aadd(aItens,{{"C8_NUMPRO" ,"02" ,Nil},;
{"C8_PRODUTO" ," ZZ-002COM00000000000000000000000011" ,Nil},;
{"C8_ITEM" ,"0001",Nil},;
{"C8_UM" ,"CX UN",Nil},;
{"C8_QUANT" ,3000 ,Nil10 ,Nil},;
{"C8_PRECO" ,30 ,NIL},;
{"C8_TOTAL" ,300 ,NIL}})
MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,4)
If !lMsErroAuto
ConOut ConOut(" Incluido NF: " + cNumPROPOSTA INCLUÍDA")
Else
MostraErro MostraErro()
ConOut ConOut("Erro na inclusaoinclusão!")
EndIf ConOut("Fim: " + Time()) RESET ENVIRONMENT Return //ALTERAÇÃO DE UMA EXCLUIR COTAÇÃO JÁ EXISTENTE User Function AltMata150ExcMata150()
Local aCabec := {}
Local aItens := {}
PRIVATE lMsErroAuto := .F. PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" aCabec :={}
aItens :={}
dbSelectArea("SC8")
aAdd(aCabec,{"C8_NUM" ,"000055000035"})
aAdd(aCabec,{"C8_FORNECE","000001"})
aAdd(aCabec,{"C8_LOJA" ,"0100"})
aAdd(aItens,{{"C8_NUMPRO" ,"01" ,Nil},;
{"C8_PRODUTO","1COM00000000000000000000000011" ,Nil},;
{"C8_ITEM" ,"0001" ,Nil}})
MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,5,,,"0001")
If !lMsErroAuto
ConOut ConOut(" Incluido NF: " + cNumProposta Excluída")
Else
MostraErro MostraErro()
ConOut ConOut("Erro na inclusaoExclusão!")
EndIf ConOut("Fim: " + Time()) RESET ENVIRONMENT Return |
