CBRETET2 - Retorna Conteúdo da Etiqueta -- 23255

LOCALIZAÇÃO: Function CBRETETI() - EM QUE PONTO: Antes da validação da etiqueta no início da função, retorna conteúdo da etiqueta. 

ACDXFUN.PRW

CBRETET2 - Retorna Conteúdo da Etiqueta ( [ PARAMIXB[1] ], [ PARAMIXB[2] ] ) --> aRet

aRet()
• Conteúdo da etiqueta.

user function CBRETET2()Local cID    := paramixb[1]  Local cTipID := paramixb[2]  Local aRetPE := {} // Array com os dados da localizada na tabela CB0.VtAlert("Passou pelo ponto de entrada = CBRETET2 = ","Aviso!",.t.,4000)/*If cTipID == '01'    // produto	aadd(aRetPE,CB0->CB0_CODPRO)    //1-código do produto	aadd(aRetPE,CB0->CB0_QTDE)      //2-quantidade	aadd(aRetPE,CB0->CB0_USUARIO)   //3-código do usuário	aadd(aRetPE,CB0->CB0_NFENT)     //4-Nota Fiscal de entrada	aadd(aRetPE,CB0->CB0_SERIEE)    //5-Série da NF de entrada	aadd(aRetPE,CB0->CB0_FORNEC)    //6-Código do fornecedor	aadd(aRetPE,CB0->CB0_LOJAFO)    //7-Loja do fornecedor	aadd(aRetPE,CB0->CB0_PEDCOM)    //8-Pedido de compra	aadd(aRetPE,CB0->CB0_LOCALI)    //9-Localização	aadd(aRetPE,CB0->CB0_LOCAL)     //10-Almoxarifado	aadd(aRetPE,CB0->CB0_OP)        //11-OP	aadd(aRetPE,CB0->CB0_NUMSEQ)    //12-Número de Seqüência	aadd(aRetPE,CB0->CB0_NFSAI)     //13-Nota Fiscal de Saída	aadd(aRetPE,CB0->CB0_SERIES)    //14-Série da NF de Saída	aadd(aRetPE,CB0->CB0_CODET2)    //15-Código da etiqueta do cliente	aadd(aRetPE,CB0->CB0_LOTE)      //16-Lote	aadd(aRetPE,CB0->CB0_SLOTE)     //17-Sub-Lote	aadd(aRetPE,CB0->CB0_DTVLD)     //18-Data de validade	aadd(aRetPE,CB0->CB0_CC)        //19-Centro de custo	aadd(aRetPE,CB0->CB0_LOCORI)    //20-Armazém Original	aadd(aRetPE,CB0->CB0_PALLET)    //21-Código do Pallet	aadd(aRetPE,CB0->CB0_OPREQ)     //22-OP para qual o produto foi requisitado	aadd(aRetPE,CB0->CB0_NUMSER)    //23-Número de Série	aadd(aRetPE,CB0->CB0_ORIGEM)    //24-OrigemElseIf cTipID == '02' // LOCALIZAÇÃO	aRetPE := {CB0->CB0_LOCALI,CB0->CB0_LOCAL}ElseIf cTipID == '03' // UNITIZADOR	aRetPE := {CB0->CB0_DISPID}ElseIf cTipID == '04' // USUÁRIO	aRetPE := {CB0->CB0_USUARIO}ElseIf cTipID == '05' //VOLUME	aRetPE := {CB0->CB0_VOLUME,;		CB0->CB0_PEDVEN,;		CB0->CB0_NFSAI,;		CB0->CB0_SERIES}ElseIf cTipID == '06'	aRetPE := {CB0->CB0_TRANSP}ElseIf cTipID == '07' //VOLUME	aRetPE := {CB0->CB0_VOLUME,;		CB0->CB0_NFENT,;     //3-Nota Fiscal de Entrada		CB0->CB0_SERIEE,;    //4-Série da Nota Fiscal de Entrada		CB0->CB0_FORNEC,;    //5-Código do fornecedor		CB0->CB0_LOJAFO}     //6-Loja do fornecedorEndIf*///Customização de usuárioreturn aRetPE