Hola amigos.
Tengo que hacer una validación que consiste en buscar si existe un código, que si lo encuentra, no debe permitir seguir.
my $encuentra = $dbh->selectall_arrayref(
"select codigo from documentos where codigo like '$codigo'",
{ Slice => {} }
) || die $self->error($self->{dbh}->errstr);
if ($encuentra) {
$existecodigo ="EL CODIGO YA EXISTE3 $codigo $encuentra";
}
else {
my $sth = $dbh->prepare(
"Update Documentos Set id_sistema =?, id_origen=?, id_tipo = ?, cod_indice=?, codigo=?, correl=? Where ...