 descripciu8c3b3n btnu800 deu800 copia delu800 registro seu8c3b1alado enu800 elu800 form copiacomposicion sobre otro producto existente ou800 nou800. hace unu800 call alu800 proc duplicaproductocompo composiciu8c3b3n composiciu8c3b3n composiciu8c3b3n codigo function copiacomposicion oevent asu800 boolean dimu800 sqlstatement asu800 object dimu800 strsqlsearch asu800 string dimu800 oconnection asu800 object dimu800 oform asu800 object dimu800 omensaje asu800 string dimu800 vproductoidorg asu800 string dimu800 vproductoiddst asu800 string dimu800 vproductodscdst asu800 string 'oform thiscomponentu82edrawpageu82eformsu82egetbyname formconsulta oform oeventu82esourceu82emodelu82eparent osubform oformu82egetbyname detalleproductooriginal osubformgrid osubformu82egetbyname detalleproductooriginalgrid vproductoidorg osubformgridu82egetbyname productoid .string vproductoiddst oformu82egetbyname fproductoid .text vproductodscdst oformu82egetbyname fproductodsc .text ifu800 lenu800 vproductoidorg 1u800 then msgbox producto origen nou800 vu8c3a1lido 0u800 error copiacomposicion false else ifu800 lenu800 vproductoiddst 1u800 then msgbox producto destino nou800 vu8c3a1lido 0u800 error copiacomposicion false else ifu800 lenu800 vproductodscdst 1u800 then msgbox descripciu8c3b3n destino nou800 vu8c3a1lida 0u800 error copiacomposicion false else copiacomposicion false ocondicion productoid & chru800 39u800 & vproductoiddst & chru800 39u800 ifu800 querysimple count hayproductos productos ocondicion integer 0u800 then 'existe unu800 producto conu800 eseu800 cu8c3b3digo omensaje existe unu800 producto conu800 elu800 codigo deu800 destino especificado. siu800 desea siu800 continua seu800 eliminaru8c3a1n todos losu800 datos delu800 omensaje omensaje & producto anteriormente ingresado. u8c2bfdesea continuar ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then copiacomposicion true endif else copiacomposicion true endu800 ifu800 ifu800 copiacomposicion then omensaje u8c2bfestu8c3a1 seguro deu800 copiar lau800 composicion deu800 & vproductoidorg & au800 & vproductoiddst & ifu800 msgbox splitmsg omensaje 40u800 mb_yesno mb_iconexclamation atenciu8c3b3n idyes then oconnection oeventu82esourceu82emodelu82egetparent .activeconnection sqlstatement oconnectionu82epreparestatement call duplicaproductocompo sqlstatementu82esetstring 1u800 vproductoidorg sqlstatementu82esetstring 2u800 vproductoiddst sqlstatementu82esetstring 3u800 vproductodscdst sqlstatementu82eexecute sqlstatementu82eclose msgbox verifique losu800 valores base delu800 nuevo producto-composiciu8c3b3n 0u800 mensaje oformu82egetbyname fproductoid .reset oformu82egetbyname fproductodsc .reset else copiacomposicion false endu800 ifu800 endu800 ifu800 endu800 ifu800 endu800 ifu800 endu800 ifu800 endu800 function bitu8c3a1cora bitu8c3a1cora bitu8c3a1cora 20120904 incorporaciu8c3b3n deu800 preguntas para determinar siu800 copia au800 pesar deu800 existir previamente otro producto conu800 eseu800 cu8c3b3digo. usou800 usou800 usou800 form copiacomposicion 