| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: MATA145 - Cadastro de Aviso de Recebimento
Descrição: Esta rotina efetua o cadastramento dos avisos de recebimento de carga. Programa Fonte: MATA145.PRX Sintaxe: MATA145 - Cadastro de Aviso de Recebimento ( [ PARAMIXB1 ] [ PARAMIXB2 ] [ PARAMIXB3 ] [ PARAMIXB4 ] ) --> NIL Retorno:
Observações O aviso de recebimento de carga é um documento que demonstra a carga de um veículo; Pode ser referente a uma única nota fiscal ou a várias;
Exemplos #INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" User Function MYMTA145() Local aDB1 := {} Local aDB2 := {} Local aDB3 := {} Local aTamProd:= {}Local cRavRc :="000020" //..numero do AvisoLocal dEmissa := "" //.. emissaoLocal cTipo := "1" //.. Tipo de cliente ou fornecedorlOCAL cCliFor := "01 " //.. Codigo do cliente ou fornecedorLocal cLoja := "01 " //.. numero da lojaLocal cTipoNF := "N" //.. tipo da nota //N-> Pedidos Normais.Local cProd := "" //.. codigo do produto Local cDoc := "000000020" //.. numero do documentoLocal nQuant := 10 //.. quantidadeLocal nVunit := 1 //..valor unitarioLocal nTotal := 10 //..totalPRIVATE lMsErroAuto := .F. //------------------------//| Abertura do ambiente |//------------------------PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "DB1","DB2","DB3","SB1" aTamProd:= TamSX3("B1_COD")cProd := "PROD1"+Space( aTamProd[1]-Len("PROD1") )dEmissa := dDataBase ConOut(Repl("-",80))ConOut(PadC("Cadastro de Aviso de Recebimento",80))ConOut("Inicio: "+Time())//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//| Exemolo de Inclusao |//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ aDB1 := {}aadd(aDB1,{"DB1_NRAVRC" ,cRavRc ,})aadd(aDB1,{"DB1_EMISSA" ,dEmissa ,})aadd(aDB1,{"DB1_TIPO" ,cTipo ,})aadd(aDB1,{"DB1_CLIFOR" ,cCliFor ,})aadd(aDB1,{"DB1_LOJA" ,cLoja ,})aadd(aDB1,{"DB1_TIPONF" ,cTipoNF ,}) aadd(aDB1,{"DB1_NRDOC" ,"99999" ,}) aadd(aDB1,{"DB1_ENTREG" ,dEmissa ,})aadd(aDB1,{"DB1_HOMOLO" ,"1" ,}) aDB2 := {}aAdd(aDB2,{})aadd(aDB2[len(aDB2)],{"DB2_DOC" ,cDoc ,})aadd(aDB2[len(aDB2)],{"DB2_EMISSA",dEmissa ,})aadd(aDB2[len(aDB2)],{"DB2_TIPO" ,cTipo ,})aadd(aDB2[len(aDB2)],{"DB2_CLIFOR",cCliFor ,})aadd(aDB2[len(aDB2)],{"DB2_LOJA" ,cLoja ,})aadd(aDB2[len(aDB2)],{"DB2_NRAVRC",cRavRc ,}) aDB3 := {} aAdd(aDB3,{}) aadd(aDB3[len(aDB3)],{"DB3_NRAVRC" ,cRavRc ,})aadd(aDB3[len(aDB3)],{"DB3_ITEM" ,"001" ,}) aadd(aDB3[len(aDB3)],{"DB3_CODPRO" ,cProd ,}) aadd(aDB3[len(aDB3)],{"DB3_QUANT" ,nQuant ,})aadd(aDB3[len(aDB3)],{"DB3_VUNIT" ,nVunit ,})aadd(aDB3[len(aDB3)],{"DB3_TOTAL" ,nTotal ,})aadd(aDB3[len(aDB3)],{"DB3_ITDOC" ,"001" ,})aadd(aDB3[len(aDB3)],{"DB3_STSERV" ,"1" ,}) PARAMIXB1 := aClone(aDB1) PARAMIXB2 := aClone(aDB2)PARAMIXB3 := aClone(aDB3)PARAMIXB4 := 3 MSExecAuto({|x,y,z,w| mata145(x,y,z,w)},PARAMIXB1,PARAMIXB2,PARAMIXB3,PARAMIXB4) If !lMsErroAuto ConOut("Incluido com sucesso! "+cProd) Else MostraErro() ConOut("Erro na inclusao!")EndIfConOut("Fim : "+Time())Return Nil Parâmetros:
|
