Skip to main content
se añadieron 4 caracteres en el cuerpo
Origen Enlace

Deberías recorrer la tabla de productos con un for each y dentro del mismoCuando recorres el archivo plano deberías recorrer el SDT para revisar si ese registro está o no, en caso de que esté lo das de alta, caso contrario no:

ForDo eachwhile TablaProductosdfrnext() = 0

   &ExisteRegistroEnSDT(variable boolean) = false

   &i = dfrgtxt(&Linetxt)
   
   For &SdtProd in &colProducto

     If &SdtProd.ProdCod = ProdCod&Linetxt.Trim(Se supone que es la clave de la tabla)
        &ExisteRegistroEnSDT = true
        Exit
     EndIf
         
   EndFor

   If &ExisteRegistroEnSDT
      //Código para dar de alta el registro
   EndIf 

EndFor   &i = dfrclose()
EndDo

Deberías recorrer la tabla de productos con un for each y dentro del mismo recorrer el SDT para revisar si ese registro está o no, en caso de que esté lo das de alta, caso contrario no:

For each TablaProductos

   &ExisteRegistroEnSDT(variable boolean) = false

   For &SdtProd in &colProducto

     If &SdtProd.ProdCod = ProdCod(Se supone que es la clave de la tabla)
        &ExisteRegistroEnSDT = true
        Exit
     EndIf
         
   EndFor

   If &ExisteRegistroEnSDT
      //Código para dar de alta el registro
   EndIf

EndFor

Cuando recorres el archivo plano deberías recorrer el SDT para revisar si ese registro está o no, en caso de que esté lo das de alta, caso contrario no:

Do while dfrnext() = 0

   &ExisteRegistroEnSDT(variable boolean) = false

   &i = dfrgtxt(&Linetxt)
   
   For &SdtProd in &colProducto

     If &SdtProd.ProdCod = &Linetxt.Trim()
        &ExisteRegistroEnSDT = true
        Exit
     EndIf
         
   EndFor

   If &ExisteRegistroEnSDT
      //Código para dar de alta el registro
   EndIf 

   &i = dfrclose()
EndDo
Origen Enlace

Deberías recorrer la tabla de productos con un for each y dentro del mismo recorrer el SDT para revisar si ese registro está o no, en caso de que esté lo das de alta, caso contrario no:

For each TablaProductos

   &ExisteRegistroEnSDT(variable boolean) = false

   For &SdtProd in &colProducto

     If &SdtProd.ProdCod = ProdCod(Se supone que es la clave de la tabla)
        &ExisteRegistroEnSDT = true
        Exit
     EndIf
         
   EndFor

   If &ExisteRegistroEnSDT
      //Código para dar de alta el registro
   EndIf

EndFor