Enviar datos a un PRG

mod_harbour es un módulo para Apache que permite correr tus PRGs directamente en la web!!!

Enviar datos a un PRG

Postby Patricio Avalos Aguirre » Mon Sep 20, 2021 2:09 am

Estimados

hay alguna forma de enviar datos al PRG que sea mas corta, en una sola variable que entregue los datos de un formulario y
no colocar cada uno

Code: Select all  Expand view  RUN

function SaveInfo() {

                    if (oBrw.GetData().length == 0){
                        MsgError( "No hay nada que grabar", 'Sistema WEB-Invent')
                    }else{
                        if (MsgYesNo( 'Esta correcta la información', 'Grabar info' ) ){
                            let oParam = new Object();
                            oParam['obrw'] = oBrw.GetData();
                            oParam['_numcot' ] =  $('#numcot').val();
                            oParam['_rutcli' ] =  $('#rutcli').val();
                            oParam['_nomcli' ] =  $('#nomcli').val();
                            oParam['_fecemi' ] =  $('#fecemi').val();
                            oParam['_condici'] =  $('#condici').val();
                            oParam['_dias'   ] =  $('#dias').val();
                            oParam['_codvend'] =  $('#codvend').val();
                            oParam['_nomvend'] =  $('#nomvend').val();
                            oParam['_observa'] =  $('#observa').val();
                            oParam['_codprod'] =  $('#codprod').val();
                            oParam['_desprod'] =  $('#desprod').val();
                            oParam['_canprod'] =  $('#canprod').val();
                            oParam['_cbruto' ] =  $('#cbruto').val();
                            oParam['_cdesc'  ] =  $('#cdesc').val();
                            oParam['_netprod'] =  $('#netprod').val();
                            oParam['_totneto'] =  $('#totneto').val();
                            oParam['_totiva '] =  $('#totiva').val();
                            oParam['_totdocu'] =  $('#totdocu').val();
                            oParam['opcion']   =  'SAVEINFO';
                            MsgServer( 'cotizaserver.prg', oParam, PostGetId );
                        }
                    }
                }
 
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Re: Enviar datos a un PRG

Postby Antonio Linares » Mon Sep 20, 2021 5:29 am

Patricio,

Si usas POST:

<form action="save.prg?customer" method="post">
...
<button id="save" type="submit" class="btn btn-primary float-right">Save changes</button>

todos los valores te llegan en un hash y accedes a ellos asi:

? AP_PostPairs()
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42203
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to mod_harbour

Who is online

Users browsing this forum: No registered users and 3 guests