Passo a passo: | #INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" //Inclui novo participanteINCLUSÃ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")+"000035") aadd(aCabec,{"C8_FORNECE" ,"000002000010"}) aadd(aCabec,{"C8_LOJA" ,"01"}) aadd(aCabec,{"C8_COND" ,"001"}) aadd(aCabec,{"C8_CONTATO" ,"AUTO"}) aadd(aCabec,{"C8_FILENT" ,"D MG 01"}) aadd(aCabec,{"C8_MOEDA" ,1}) 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" ," COM00000000000000000000000011" ,Nil},; {"C8_ITEM" ,"0001",Nil},; {"C8_UM" ,"UN",Nil},; {"C8_QUANT" ,10 ,Nil},; {"C8_PRECO" ,0 ,NIL},; {"C8_TOTAL" ,0 ,NIL}}) MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,2) If !lMsErroAuto ConOut(" Novo participante incluído" ) Else MostraErro() ConOut("Erro na inclusaoinclusão!") EndIf ConOut("Fim: " + Time()) RESET ENVIRONMENT Return // Incluir PropostaAtualiza 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_TOTFRE" ,0}) aadd(aCabec,{"C8_VALDESC" ,0}) aadd(aCabec,{"C8_DESPESA" ,0}) aadd(aCabec,{"C8_SEGURO" ,100" ,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" ,"UN",Nil},; {"C8_UMQUANT" ,10 ,"CX " ,NilNil},; {"C8_PRECO" ,20 ,NIL},; {"C8_QUANTTOTAL" ,2000 200 ,NilNIL}}) 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
// Atualiza CotaçãoINCLUIR 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")+"000035"aCabec,{"C8_NUM" ,"000035"}) aadd(aCabec,{"C8_FORNECE" ,"000002000010"}) aadd(aCabec,{"C8_LOJA" ,"01"}) aadd(aCabec,{"C8_COND" ,"001"}) aadd(aCabec,{"C8_CONTATO" ,"AUTO"}) aadd(aCabec,{"C8_FILENT" ,"D MG 01"}) aadd(aCabec,{"C8_MOEDA" ,1}) 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" ,"0102" ,Nil},; {"C8_PRODUTO" ," COM00000000000000000000000011" ,Nil},; {"C8_ITEM" ,"0001",Nil},; {"C8_UM" ,"UN",Nil},; {"C8_QUANT" ,10 ,Nil},; {"C8_PRECO" ,20 30 ,NIL},; {"C8_TOTAL" ,200 300 ,NIL}}) MSExecAuto({|v,x,y| MATA150(v,x,y)},aCabec,aItens,34)
If !lMsErroAuto ConOut ConOut(" Alterado com sucesso PROPOSTA INCLUÍDA") Else MostraErro MostraErro() ConOut ConOut("Erro na inclusaoinclusão!") EndIf ConOut("Fim: " + Time()) RESET ENVIRONMENT Return //EXCLUSÃO DE UMA EXCLUIR COTAÇÃO User Function ExcMata150() 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,,,)
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 |