problemas con acceso a registros con el fetch
Publicado: Vie Jun 21, 2019 2:13 pm
Buen dia gente,
Tengo un incoveniente al queres acceder a un registro de una tabla con el fetch y una clave compuesta.
tengo la siguiente tabla : acumula_retenciones
proveedor_id long " id del proveedor donde se acumula para imputarle retenciones"
periodo string(6) " es del tipo mm/aaaa"
retencion_id long " Tipo de retencion al que corresponde la acumulacion"
acumulado decimal (9,2) monto acumulado
importe retenido decimal (9,2) importe retenido
tengo la clave primaria con proveedor_id,periodo,retencion_id
mi codigo es el siguiente
ACU:Proveedor_id=Ret:PROVEEDOR_ID
ACU:Periodo=L:periodo
ACU:Retencion_id=Ret:Retencion_id
IF Access:Acumula_retencion.Fetch(ACU:acumulado_ret_x_proveedor_periodo) = Level:Benign
ACU:Acumulado=ACU:Acumulado - base_imponible
ACU:importe_retenido = ACU:importe_retenido - importe_retenido
IF Access:acumula_retencion.TryUpdate() <> Level:Benign
message('Error en transaccion: no se puede actualizar acumula_Retenciones: '&fileerror())
rollback
return level:fatal
END
ELSE
MESSAGE('no se encontro el acumula retencion.'&ERRORCODE())
rollback
return level:fatal
END
No encuentra el registro
Espero que me ayuden
Saludos
Tengo un incoveniente al queres acceder a un registro de una tabla con el fetch y una clave compuesta.
tengo la siguiente tabla : acumula_retenciones
proveedor_id long " id del proveedor donde se acumula para imputarle retenciones"
periodo string(6) " es del tipo mm/aaaa"
retencion_id long " Tipo de retencion al que corresponde la acumulacion"
acumulado decimal (9,2) monto acumulado
importe retenido decimal (9,2) importe retenido
tengo la clave primaria con proveedor_id,periodo,retencion_id
mi codigo es el siguiente
ACU:Proveedor_id=Ret:PROVEEDOR_ID
ACU:Periodo=L:periodo
ACU:Retencion_id=Ret:Retencion_id
IF Access:Acumula_retencion.Fetch(ACU:acumulado_ret_x_proveedor_periodo) = Level:Benign
ACU:Acumulado=ACU:Acumulado - base_imponible
ACU:importe_retenido = ACU:importe_retenido - importe_retenido
IF Access:acumula_retencion.TryUpdate() <> Level:Benign
message('Error en transaccion: no se puede actualizar acumula_Retenciones: '&fileerror())
rollback
return level:fatal
END
ELSE
MESSAGE('no se encontro el acumula retencion.'&ERRORCODE())
rollback
return level:fatal
END
No encuentra el registro
Espero que me ayuden
Saludos