import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: MA630RS - Atera Conteúdo do aCols
Descrição:
Eventos
Programa Fonte
MATA630.PRX
Sintaxe
MA630RS - Atera Conteúdo do aCols ( < PARAMIXB[1]> , < PARAMIXB[2]> , < PARAMIXB[3]> , < PARAMIXB[4]> , < PARAMIXB[5]> , < PARAMIXB[6]> ) --> aRetCols
Parâmetros:
Retorno
Observações
Exemplos
User Function MA630RS()Local nPosRec,nPosLotePad,nILocal cCodRotDest := PARAMIXB[1]Local cCodProdDest := PARAMIXB[2]Local cCodRotOri := PARAMIXB[3]Local cCodProdOri := PARAMIXB[4]Local aHeadAux := aClone(PARAMIXB[5])Local aRetCols := aClone(PARAMIXB[6])nPosRec := AScan(aHeadAux,{|x|x[2]=='G2_RECURSO'})nPosLotePad := AScan(aHeadAux,{|x|x[2]=='G2_LOTEPAD'})For nI :=1 To Len(aRetCols) If Substr(cCodProdOri,2,3)=='157' .And. aRetCols[nI,nPosRec] == '00012' aRetCols[nI,nPosLotePad] := 10 Else aRetCols[nI,nPosLotePad] := 50 EndIf NextReturn aRetCols |